(rmail-get-new-mail): If conversion fails, delete the text that was inserted.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4f1d97c50351a071a2e087b7f264c165c22e49b3..3ee44176e0d59846c33dd1fc3e25846492e0364d 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1131,6 +1131,8 @@ It returns t if it got any new messages."
                    (if (and (not file-name) (not success))
                        (let ((delfiles delete-files)
                              (count 0))
+                         ;; Try to delete the garbage just inserted.
+                         (delete-region (point-min) (point-max))
                          (while delfiles
                            (while (file-exists-p (format "RMAILOSE.%d" count))
                              (setq count (1+ count)))